/rcurveto{RTA_ r62 RTA_ r62 RTA_ r62 curveto}B

/r62{6 2 roll}B

/rlineto{RTA_ lineto}B

/RTA_{currentpoint exch 4 1 roll add 3 1 roll add exch}B